000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.          HHDRV160.
000300*AUTHOR.             DDS TEAM.
000400*REVISED. 06/16/15 DDS TEAM.
000500*                        CMS.
000600******************************************************************
000700*REMARKS.
000800*     HHDRV040   NATIONAL HHA FOR OCT 1, 2003
000900*                LOADS ALL FILES
001000*                     HRG , REVENUE , MSA TABLES
001100*                MSA = ML00.@DBA2652.WIPREREC.#020709.M2
001200*                      APPLYING FY 2003 INDEX IN FY 2004
001300*                      FY 2003 WAGE INDEX
001400*                      PRE-RECLASSIED AND PRE-FLOOR
001500*     HHDRV041 NEW RATES APR 1, 2004
001600*     HHDRV050 NEW RATES JAN 1, 2005
001700*              MSA = ML00.@DBA2652.WI2005.PFPREC.#041030.SCR401U
001800*                    APPLYING CY 2005
001900*                    CY 2005 WAGE INDEX
002000*                    PRE-RECLASSIED AND PRE-FLOOR
002100*     HHDRV060 NEW RATES JAN 1, 2006
002200*             CBSA = ML00.@DBA2652.WI06.CBSA.#050301.SNF-STANLY
002300*                    APPLYING CY 2006
002400*                    CY 2006 WAGE INDEX
002500*                    PRE-RECLASSIED AND PRE-FLOOR
002600*     HHDRV061 NEW RATES JAN 1, 2006
002700*              CY 2006 WAGE INDEX
002800*              PRE-RECLASSIED AND PRE-FLOOR RURAL DIFFERENTIAL
002900*     HHDRV062 ADDED RURAL DIFFERENTIAL LOGIC FOR SPECIFIC CBSA
003000*              CODES, INITIALIZE THE TABLES BEFORE LOADING
003100*     HHDRV063 CICS VERSION JUL 1, 2006
003200*     HHDRV070 CICS VERSION JAN 1, 2007
003300*     HHDRV071 CICS VERSION JAN 1, 2007 CORRECT LUPA RATE
003400*              CORRECT LUPA RATE DETERMINATION IF LOGIC
003500*     HHDRV083 CICS VERSION JAN 1, 2008 CORRECT LUPA RATE
003600*              CORRECT LUPA RATE DETERMINATION IF LOGIC
003700*     HHDRV084 KEEP LUPA HIPPS CODES FROM RE-CODING AND
003800*              CORRECT  HIPPS RECODE LOGIC
003900*     HHDRV090 KEEP LUPA HIPPS CODES FROM RE-CODING AND
004000*              CORRECT  HIPPS RECODE LOGIC
004100*     HHDRV091 LUPA PAYMNT ZERO FOR ZERO REV VISITS
004200*     HHDRV092 HIPPS CODE RECODING FOR 5 IN POS 1
004300*     HHDRV100 EXPAND BILLING RECORD TO 500 BYTES - BETA VERSION
004400*     HHDRV152 CY 2015.2 UPDATE
004410*     HHDRV160 CY 2016.0 UPDATE
004420*              ADDED 2016 UPDATE IN  **RECODING LOGIC **
004500***************************************************************
004600*     RETURN CODES
004700*          00 = FINAL PAYMENT
004800*               TOB = 329,339,327,337
004900*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
005000*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
005100*                  OR 32F OR 32K OR 32P OR 32H
005200*                  OR 33F OR 33K OR 33P OR 33H
005300*               WITH HRG,REVENUE CODE WHERE NO OUTLIER APPLIES
005400*          01 = FINAL PAYMENT
005500*               TOB = 329,339,327,337
005600*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
005700*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
005800*                  OR 32F OR 32K OR 32P OR 32H
005900*                  OR 33F OR 33K OR 33P OR 33H
006000*               WITH HRG,REVENUE CODE WHERE OUTLIER APPLIES
006100*          03 = INITIAL HALF PAYMENT PAYMENT WILL BE ZERO
006200*               TOB = 332 AND 322
006300*          04 = INITIAL HALF PAYMENT PAID AT 50%
006400*               TOB = 332 AND 322
006500*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES
006600*          05 = INITIAL HALF PAYMENT PAID AT 60%
006700*               TOB = 332 AND 322
006800*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES
006900*          06 = LUPA PAYMENT ONLY
007000*               TOB = 329,339,327,337
007100*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
007200*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
007300*                  OR 32F OR 32K OR 32P OR 32H
007400*                  OR 33F OR 33K OR 33P OR 33H
007500*               WITH REVENUE CODES AND REVENUE QTYS < 5       *
007600******************************************************************
007700**  RTC CODES 07,08,09,11,12,13 EFFECTIVE 10/01/2002          ****
007800******************************************************************
007900******************************************************************
008000*          07 = FINAL PAYMENT, SCIC, PEP = N, NO OUTLIER
008100*               TOB = 329,339,327,337
008200*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
008300*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
008400*                  OR 32F OR 32K OR 32P OR 32H
008500*                  OR 33F OR 33K OR 33P OR 33H
008600*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES
008700*               WITH MORE THAN ONE HRG OCCURRENCE             *
008800*          08 = FINAL PAYMENT, SCIC, PEP = N, WITH OUTLIER
008900*               TOB = 329,339,327,337
009000*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
009100*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
009200*                  OR 32F OR 32K OR 32P OR 32H
009300*                  OR 33F OR 33K OR 33P OR 33H
009400*               WITH REVENUE CODE WHERE OUTLIER APPLIES
009500*               WITH MORE THAN ONE HRG OCCURRENCE             *
009600******************************************************************
009700*          09 = FINAL PAYMENT, PEP = Y, NO OUTLIER
009800*               TOB = 329,339,327,337
009900*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
010000*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
010100*                  OR 32F OR 32K OR 32P OR 32H
010200*                  OR 33F OR 33K OR 33P OR 33H
010300*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES
010400*               WITH ONE HRG OCCURRENCE                       *
010500*          11 = FINAL PAYMENT, PEP = Y, WITH OUTLIER
010600*               TOB = 329,339,327,337
010700*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
010800*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
010900*                  OR 32F OR 32K OR 32P OR 32H
011000*                  OR 33F OR 33K OR 33P OR 33H
011100*               WITH REVENUE CODE WHERE OUTLIER APPLIES
011200*               WITH ONE HRG OCCURRENCE                       *
011300******************************************************************
011400*          12 = FINAL PAYMENT, SCIC, PEP = Y, NO OUTLIER
011500*               TOB = 329,339,327,337
011600*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
011700*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
011800*                  OR 32F OR 32K OR 32P OR 32H
011900*                  OR 33F OR 33K OR 33P OR 33H
012000*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES
012100*               WITH MORE THAN ONE HRG OCCURRENCE             *
012200*          13 = FINAL PAYMENT, SCIC, PEP = Y, WITH OUTLIER
012300*               TOB = 329,339,327,337
012400*                  OR 32G OR 33G OR 32I OR 33I OR 32Q
012500*                  OR 32J OR 33J OR 32M OR 33M OR 33Q
012600*                  OR 32F OR 32K OR 32P OR 32H
012700*                  OR 33F OR 33K OR 33P OR 33H
012800*               WITH REVENUE CODE WHERE OUTLIER APPLIES
012900*               WITH MORE THAN ONE HRG OCCURRENCE             *
013000******************************************************************
013100******************************************************************
013200******************************************************************
013300******************************************************************
013400*                                                             *
013500*            HHA-RTC   NO PAYMENTS RETURNED                   *
013600*                                                             *
013700*              10 = INVALID TOB                               *
013800*                                                             *
013900*              15 = INVALID PEP DAYS                          *
014000*                   FOR SHORTENED EPISODE                     *
014100*                                                             *
014200*              20 = INVALID PEP INDICATOR                     *
014300*                                                             *
014400*              25 = INVALID MED REVIEW INDICATOR              *
014500*                                                             *
014600*              30 = INVALID MSA CODE                          *
014700*                                                             *
014800*              35 = INVALID INITIAL PAYMENT INDICATOR         *
014900*                        0 = MAKE NORMAL INITIAL PAYMENT      *
015000*                        1 = MAKE ZERO PAYMANT                *
015100*                                                             *
015200*              40 = FROM DATE  < OCT 1, 2000 OR INVALID       *
015300*                   THRU DATE  < OCT 1, 2000 OR INVALID       *
015400*                   ADMIT DATE < OCT 1, 2000 OR INVALID       *
015500*                                                             *
015600*              70 = INVALID OR NO HRG CODE PRESENT            *
015700*                                                             *
015800*              75 = NO HRG PRESENT IN FIRST OCCURANCE AND     *
015900*                   REVENUE-QTY-COV-VISITS > 4  AND           *
016000*                       TOB = 329,339,327,337                 *
016100*                          OR 32G OR 33G OR 32I OR 33I OR 32Q *
016200*                          OR 32J OR 33J OR 32M OR 33M OR 33Q *
016300*                          OR 32F OR 32K OR 32P OR 32H
016400*                          OR 33F OR 33K OR 33P OR 33H
016500*                                                             *
016600*              80 = INVALID REVENUE CODE                      *
016700*                                                             *
016800*              85 = NO REVENUE CODE PRESENT                   *
016900*                   WITH TOB 329 OR 339 OR 327 OR 337 OR 32Q  *
017000*                         OR 32G OR 33G OR 32I OR 33I OR 33Q  *
017100*                         OR 32J OR 33J OR 32M OR 33M         *
017200*                         OR 32F OR 32K OR 32P OR 32H
017300*                         OR 33F OR 33K OR 33P OR 33H
017400*                                                             *
017500***************************************************************
017600******************************************************************
017700 DATE-COMPILED.
017800 ENVIRONMENT                     DIVISION.
017900
018000 CONFIGURATION                   SECTION.
018100 SOURCE-COMPUTER.                IBM-370.
018200 OBJECT-COMPUTER.                IBM-370.
018300
018400 INPUT-OUTPUT SECTION.
018500 FILE-CONTROL.
018600
018700 DATA DIVISION.
018800 FILE SECTION.
018900 WORKING-STORAGE SECTION.
019000 77  W-STORAGE-REF               PIC X(49)  VALUE
019100     'HHA D R I V E R   - W O R K I N G   S T O R A G E'.
019200 01  DRV-VERSION                 PIC X(07)  VALUE 'D2016.0'.
019300 01  HHCAL016                    PIC X(08)  VALUE 'HHCAL016'.
019400 01  HHCAL023                    PIC X(08)  VALUE 'HHCAL023'.
019500 01  HHCAL033                    PIC X(08)  VALUE 'HHCAL033'.
019600 01  HHCAL044                    PIC X(08)  VALUE 'HHCAL044'.
019700 01  HHCAL053                    PIC X(08)  VALUE 'HHCAL053'.
019800 01  HHCAL066                    PIC X(08)  VALUE 'HHCAL066'.
019900 01  HHCAL074                    PIC X(08)  VALUE 'HHCAL074'.
020000 01  HHCAL088                    PIC X(08)  VALUE 'HHCAL088'.
020100 01  HHCAL095                    PIC X(08)  VALUE 'HHCAL095'.
020200 01  HHCAL10D                    PIC X(08)  VALUE 'HHCAL10D'.
020300 01  HHCAL10A                    PIC X(08)  VALUE 'HHCAL10A'.
020400 01  HHCAL113                    PIC X(08)  VALUE 'HHCAL113'.
020500 01  HHCAL122                    PIC X(08)  VALUE 'HHCAL122'.
020600 01  HHCAL132                    PIC X(08)  VALUE 'HHCAL132'.
020700 01  HHCAL145                    PIC X(08)  VALUE 'HHCAL145'.
020800 01  HHCAL152                    PIC X(08)  VALUE 'HHCAL152'.
020810 01  HHCAL160                    PIC X(08)  VALUE 'HHCAL160'.
020900 01  SUB1                        PIC 9(03)  VALUE 0.
021000 01  EOF-SW                      PIC 9(01)  VALUE 0.
021100 01  EOF-MSA                     PIC 9(01)  VALUE 0.
021200 01  EOF-CBSA                    PIC 9(01)  VALUE 0.
021300 01  EOF-HRG                     PIC 9(01)  VALUE 0.
021400 01  SEARCH-HRG.
021500     05  SEARCH-HRG1             PIC X(01).
021600     05  SEARCH-HRG2             PIC X(01).
021700     05  SEARCH-HRG3             PIC X(01).
021800     05  SEARCH-HRG4             PIC X(01).
021900     05  SEARCH-HRG5             PIC X(01).
022000 01  WORK-ORIG-HRG.
022100     05  WORK-ORIG-HRG1          PIC X(01).
022200     05  WORK-ORIG-HRG2          PIC X(01).
022300     05  WORK-ORIG-HRG3          PIC X(01).
022400     05  WORK-ORIG-HRG4          PIC X(01).
022500     05  WORK-ORIG-HRG5          PIC X(01).
022600 01  WORK-HRG.
022700     05  WORK-HRG1               PIC X(01).
022800     05  WORK-HRG2               PIC X(01).
022900     05  WORK-HRG3               PIC X(01).
023000     05  WORK-HRG4               PIC X(01).
023100     05  WORK-HRG5               PIC X(01).
023200 01  EOF-REV                     PIC 9(01)  VALUE 0.
023300 01  LOAD-TABLES-SW              PIC 9(01)  VALUE 0.
023400 01  TABLES-LOADED-SW            PIC 9(01)  VALUE 0.
023500 01  HRG-RECODE-SW               PIC 9(01)  VALUE 0.
023600 01  HRG-KEEP5-SW1               PIC 9(01)  VALUE 0.
023700 01  HRG-CT                      PIC 9(10)  VALUE 0.
023800 01  MSA-STAT.
023900     05  MSA-STAT1               PIC X.
024000     05  MSA-STAT2               PIC X.
024100 01  CBSA-STAT.
024200     05  CBSA-STAT1               PIC X.
024300     05  CBSA-STAT2               PIC X.
024400 01  HRG-STAT.
024500     05  HRG-STAT1               PIC X.
024600     05  HRG-STAT2               PIC X.
024700 01  REV-STAT.
024800     05  REV-STAT1               PIC X.
024900     05  REV-STAT2               PIC X.
025000 LINKAGE SECTION.
025100*******************************************************
025200*******************************************************
025300*    PASSED TO HHCAL PROGRAM                          *
025400*******************************************************
025500 01  WAGE-INDEX-DATA.
025600     02  WIR-MSA               PIC X(04).
025700     02  WIR-EFFDATE           PIC X(08).
025800     02  WIR-AREA-WAGEIND      PIC 9(02)V9(04).
025900
026000 01  MSA-WI-TABLE.
026100     05  M-MSA-DATA        OCCURS 4000
026200                           INDEXED BY MU1 MU2 MU3.
026300         10  TB-MSA        PIC X(04).
026400         10  FILLER        PIC X(01).
026500         10  TB-EFFDATE    PIC X(08).
026600         10  FILLER        PIC X(01).
026700         10  TB-WAGEIND    PIC 9(02)V9(04).
026800
026900 01  CBSA-WAGE-INDEX-DATA.
027000     02  WIR-CBSA              PIC X(05).
027100     02  WIR-CBSA-EFFDATE      PIC X(08).
027200     02  WIR-CBSA-WAGEIND      PIC 9(02)V9(04).
027300
027400 01  CBSA-WI-TABLE.
027500     05  T-CBSA-DATA        OCCURS 6000
027600                           INDEXED BY MA1 MA2 MA3.
027700         10  T-CBSA            PIC X(05).
027800         10  FILLER            PIC X(01).
027900         10  T-CBSA-EFFDATE    PIC X(08).
028000         10  FILLER            PIC X(01).
028100         10  T-CBSA-WAGEIND    PIC 9(02)V9(04).
028200
028300 01  HRG-WI-TABLE.
028400     05  M-HRG-DATA        OCCURS 4000
028500                           INDEXED BY HU1 HU2 HU3.
028600         10  TB-HRG-HRG        PIC X(05).
028700         10  FILLER            PIC X(01).
028800         10  TB-HRG-EFFDATE    PIC X(08).
028900         10  FILLER            PIC X(01).
029000         10  TB-HRG-WGTS       PIC 9(02)V9(04).
029100         10  FILLER            PIC X(01).
029200         10  TB-HRG-HRG2       PIC X(05).
029300         10  FILLER            PIC X(01).
029400         10  TB-HRG-WGTS2      PIC 9(02)V9(04).
029500
029600 01  REVENUE-TABLE.
029700     05  M-REV-DATA        OCCURS 200
029800                           INDEXED BY RU1 RU2 RU3.
029900         10  TB-REV-CODE.
030000             15  TB-REV-CODE-1ST.
030100                 88  TB-REV-CODE-RURAL-CHECK   VALUE '99'.
030200                 20  TB-REV-CODE-RURAL       PIC XX.
030300             15  TB-REV-CODE-2ND           PIC XX.
030400         10  FILLER                        PIC X(01).
030500         10  TB-REV-EFFDATE                PIC X(08).
030600         10  FILLER                        PIC X(01).
030700         10  TB-REV-DOLL-RATE-NRURAL       PIC 9(07)V9(02).
030800         10  FILLER                        PIC X(01).
030900         10  TB-REV-DOLL-RATE-RURAL        PIC 9(07)V9(02).
031000         10  FILLER                        PIC X.
031100         10  TB-DOLL-RATE-NRURAL-NOSUBMIT  PIC 9(07)V9(02).
031200         10  FILLER                        PIC X.
031300         10  TB-DOLL-RATE-RURAL-NOSUBMIT   PIC 9(07)V9(02).
031400
031500*******************************************************
031600* NATIONAL HHA RECORD FORMAT PASSED TO HHCAL PROGRAM  *
031700*******************************************************
031800 01  HHA-INPUT-DATA.
031900     05  HHA-DATA.
032000         10  HHA-NPI                 PIC X(10).
032100         10  HHA-HIC                 PIC X(12).
032200         10  HHA-PROV-NO             PIC X(06).
032300         10  HHA-TOB                 PIC XXX.
032400             88 HHA-VALID-TOB-CLAIM       VALUE
032500             '329', '339', '327', '337',
032600             '32G', '33G', '32I', '33I',
032700             '32J', '33J', '32M', '33M', '32Q',
032800             '32F', '32K', '32P', '32H', '33Q',
032900             '33F', '33K', '33P', '33H'.
033000             88 HHA-VALID-TOB-RAP         VALUE
033100             '322', '332'.
033200*                                                             *
033300         10  HHA-PEP-INDICATOR       PIC X.
033400         10  HHA-PEP-DAYS            PIC 999.
033500         10  HHA-INIT-PAY-INDICATOR  PIC X.
033600             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.
033700             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.
033800         10  FILLER                  PIC X(07).
033900         10  HHA-MSA1                PIC 9(07)V9(02).
034000         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.
034100             15  FILLER             PIC XXX.
034200             15  HHA-MSA2.
034300                 20  HHA-MSA2-1ST.
034400                     25  HHA-MSA2-RURAL        PIC XX.
034500                         88  HHA-MSA2-RURAL-CHECK  VALUE '99'.
034600                 20  HHA-MSA2-2ND              PIC XX.
034700             15  FILLER             PIC XX.
034800         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.
034900             15  FILLER             PIC XX.
035000             15  HHA-CBSA.
035100                 88  HHA-CBSA-RURAL-CHECK-ALL VALUE
035200                 '50001', '50002', '50005', '50007', '50025',
035300                 '50028', '50031', '50035', '50036', '50037',
035400                 '50041', '50045', '50047', '50048', '50050',
035500                 '50056', '50057', '50066', '50068', '50071',
035600                 '50073', '50080', '50084', '50087', '50089',
035700                 '50090', '50091', '50103', '50104', '50111',
035800                 '50115', '50117', '50118', '50120', '50121',
035900                 '50139', '50146', '50147', '50149', '50151',
036000                 '50164', '50165', '50168', '50169', '50173',
036100                 '50174', '50177', '50180', '50182', '50183'.
036200
036300                 20  HHA-CBSA-1ST.
036400                     25  HHA-CBSA-RURAL        PIC XXX.
036500                         88  HHA-CBSA-RURAL-CHECK  VALUE '999'.
036600                 20  HHA-CBSA-2ND              PIC XX.
036700             15  FILLER             PIC XX.
036800         10  HHA-SERV-FROM-DATE.
036900             15  HHA-FROM-CC         PIC XX.
037000             15  HHA-FROM-YYMMDD.
037100                 25  HHA-FROM-YY     PIC XX.
037200                 25  HHA-FROM-MM     PIC XX.
037300                 25  HHA-FROM-DD     PIC XX.
037400         10  HHA-SERV-THRU-DATE.
037500             15  HHA-THRU-CC         PIC XX.
037600             15  HHA-THRU-YYMMDD.
037700                 25  HHA-THRU-YY     PIC XX.
037800                 25  HHA-THRU-MM     PIC XX.
037900                 25  HHA-THRU-DD     PIC XX.
038000         10  HHA-ADMIT-DATE.
038100             15  HHA-ADMIT-CC        PIC XX.
038200             15  HHA-ADMIT-YYMMDD.
038300                 25  HHA-ADMIT-YY    PIC XX.
038400                 25  HHA-ADMIT-MM    PIC XX.
038500                 25  HHA-ADMIT-DD    PIC XX.
038600         10  HHA-HRG-DATA      OCCURS 6.
038700             15  HHA-MED-REVIEW-INDICATOR PIC X.
038800             15  HHA-HRG-INPUT-CODE       PIC X(05).
038900             15  HHA-HRG-OUTPUT-CODE      PIC X(05).
039000             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).
039100             15  HHA-HRG-WGTS             PIC 9(02)V9(04).
039200             15  HHA-HRG-PAY              PIC 9(07)V9(02).
039300         10  HHA-REVENUE-DATA     OCCURS 6.
039400             15  HHA-REVENUE-CODE                PIC X(04).
039500             15  HHA-REVENUE-QTY-COV-VISITS      PIC 9(03).
039600             15  HHA-REVENUE-EARLIEST-DATE       PIC 9(08).
039700             15  HHA-REVENUE-DOLL-RATE           PIC 9(07)V9(02).
039800             15  HHA-REVENUE-COST                PIC 9(07)V9(02).
039900             15  HHA-REVENUE-ADD-ON-VISIT-AMT    PIC 9(07)V9(02).
040000     05  HHA-PASSBACK-DATA.
040100         10  HHA-PAY-RTC                PIC 99.
040200         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).
040300         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).
040400         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).
040500         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).
040600     05  HHA-CASE-MIX-DATA.
040700         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).
040800         10  HHA-LUPA-SRC-ADM           PIC X.
040900         10  HHA-RECODE-IND             PIC X.
041000         10  HHA-EPISODE-TIMING         PIC 9.
041100         10  HHA-SEVERITY-POINTS.
041200             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).
041300             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).
041400             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).
041500             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).
041600             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).
041700             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).
041800             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).
041900             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).
042000     05  HHA-PROV-TOTAL-DATA.
042100         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).
042200         10  HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).
042300     05  FILLER                         PIC X(31).
042400*******************************************************
042500*    05  FILLER                         PIC X(20).
042600*******************************************************
042700*    RETURNED BY HHCAL PROGRAM AND PASSED ON TO MGR   *
042800*******************************************************
042900 01  HOLD-VARIABLES-DATA.
043000     02  HOLD-VAR-DATA.
043100         05  PRICER-OPTION-SW              PIC X(01).
043200         05  HHOPN-VERSION                 PIC X(07).
043300         05  HHDRV-VERSION                 PIC X(07).
043400         05  HHCAL-VERSION                 PIC X(07).
043500         05  FILLER                        PIC X(20).
043600
043700**===========================================================
043800 PROCEDURE  DIVISION USING WAGE-INDEX-DATA
043900                           MSA-WI-TABLE
044000                           CBSA-WAGE-INDEX-DATA
044100                           CBSA-WI-TABLE
044200                           HRG-WI-TABLE
044300                           REVENUE-TABLE
044400                           HHA-INPUT-DATA
044500                           HOLD-VARIABLES-DATA.
044600
044700 0000-MAINLINE  SECTION.
044800
044900     MOVE DRV-VERSION TO HHDRV-VERSION.
045000
045100*     DISPLAY '-- HHA-HIC HHMGR152  ===> ' HHA-HIC.
045200
045300 0100-PROCESS-RECORDS.
045400     MOVE ALL '0' TO HHA-PASSBACK-DATA.
045500     MOVE SPACES  TO CBSA-WAGE-INDEX-DATA.
045600
045700     IF HHA-VALID-TOB-CLAIM OR
045800        HHA-VALID-TOB-RAP
045900        NEXT SENTENCE
046000     ELSE
046100        MOVE '10' TO HHA-PAY-RTC
046200        GOBACK.
046300
046400     IF HHA-SERV-FROM-DATE < 20001001 OR
046500        HHA-SERV-THRU-DATE < 20001001 OR
046600        HHA-ADMIT-DATE < 20001001
046700        MOVE '40' TO HHA-PAY-RTC
046800        GOBACK.
046900
047000     IF HHA-ADMIT-DATE >
047100        HHA-SERV-FROM-DATE
047200        MOVE '40' TO HHA-PAY-RTC
047300        GOBACK.
047400
047500     IF HHA-REVENUE-QTY-COV-VISITS (1) NOT NUMERIC
047600        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (1).
047700     IF HHA-REVENUE-QTY-COV-VISITS (2) NOT NUMERIC
047800        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (2).
047900     IF HHA-REVENUE-QTY-COV-VISITS (3) NOT NUMERIC
048000        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (3).
048100     IF HHA-REVENUE-QTY-COV-VISITS (4) NOT NUMERIC
048200        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (4).
048300     IF HHA-REVENUE-QTY-COV-VISITS (5) NOT NUMERIC
048400        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (5).
048500     IF HHA-REVENUE-QTY-COV-VISITS (6) NOT NUMERIC
048600        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (6).
048700
048800     COMPUTE HHA-REVENUE-SUM1-3-QTY-THR =
048900                 HHA-REVENUE-QTY-COV-VISITS (1) +
049000                 HHA-REVENUE-QTY-COV-VISITS (2) +
049100                 HHA-REVENUE-QTY-COV-VISITS (3).
049200
049300     COMPUTE HHA-REVENUE-SUM1-6-QTY-ALL =
049400                 HHA-REVENUE-QTY-COV-VISITS (1) +
049500                 HHA-REVENUE-QTY-COV-VISITS (2) +
049600                 HHA-REVENUE-QTY-COV-VISITS (3) +
049700                 HHA-REVENUE-QTY-COV-VISITS (4) +
049800                 HHA-REVENUE-QTY-COV-VISITS (5) +
049900                 HHA-REVENUE-QTY-COV-VISITS (6).
050000
050100     IF  ((HHA-VALID-TOB-CLAIM) AND
050200         (HHA-REVENUE-SUM1-6-QTY-ALL > 4) AND
050300         (HHA-HRG-INPUT-CODE (1) = SPACE))
050400         MOVE '75' TO HHA-PAY-RTC
050500         GOBACK.
050600
050700     IF  ((HHA-VALID-TOB-RAP  ) AND
050800         (HHA-HRG-INPUT-CODE (1) = SPACE))
050900         MOVE '70' TO HHA-PAY-RTC
051000         GOBACK.
051100
051200     IF HHA-PAY-RTC NOT = '00'
051300        GOBACK.
051400
051500     IF  ((HHA-VALID-TOB-CLAIM) AND
051600         (HHA-REVENUE-CODE (1) = SPACE OR
051700          HHA-REVENUE-CODE (2) = SPACE OR
051800          HHA-REVENUE-CODE (3) = SPACE OR
051900          HHA-REVENUE-CODE (4) = SPACE OR
052000          HHA-REVENUE-CODE (5) = SPACE OR
052100          HHA-REVENUE-CODE (6) = SPACE))
052200         MOVE '85' TO HHA-PAY-RTC.
052300
052400     IF HHA-PAY-RTC NOT = '00'
052500        GOBACK.
052600
052700     IF HHA-SERV-THRU-DATE < 20060101
052800        PERFORM 1600-GET-MSA THRU 1600-EXIT
052900     ELSE
053000        PERFORM 1250-GET-CBSA THRU 1250-EXIT.
053100
053200     IF HHA-SERV-THRU-DATE < 20060101
053300        IF HHA-PAY-RTC = '00'
053400           PERFORM 1700-GET-WAGE-INDEX THRU 1700-EXIT
053500           VARYING MU2 FROM MU1 BY 1 UNTIL
053600           TB-MSA (MU2) NOT = HHA-MSA2.
053700
053800     IF HHA-SERV-THRU-DATE > 20051231
053900        IF HHA-PAY-RTC = '00'
054000           PERFORM 1260-GET-CBSA-WAGE-INDEX THRU 1260-EXIT
054100           VARYING MA2 FROM MA1 BY 1 UNTIL
054200           T-CBSA (MA2) NOT = HHA-CBSA.
054300
054400
054500     IF HHA-PAY-RTC = '00'
054600        MOVE 0 TO  HRG-RECODE-SW
054700
054800        PERFORM 2000-GET-HRG THRU 2000-EXIT
054900             VARYING SUB1 FROM 1 BY 1 UNTIL
055000*           (HHA-HRG-INPUT-CODE (SUB1) = SPACES OR
055100             SUB1 > 6.
055200
055300     IF HHA-PAY-RTC = '00'
055400        IF (HHA-VALID-TOB-CLAIM)
055500           PERFORM 2700-GET-REV THRU 2700-EXIT
055600               VARYING SUB1 FROM 1 BY 1 UNTIL
055700*             (HHA-REVENUE-CODE (SUB1) = SPACES OR
055800                SUB1 > 6.
055900
056000     IF HHA-PAY-RTC NOT = '00'
056100         GOBACK.
056200
056300*******************************************************
056400*****    FY 2016 VERSION 0
056500***
056600     IF  HHA-SERV-THRU-DATE > 20151231
056700         CALL  HHCAL160   USING HHA-INPUT-DATA
056800                                HOLD-VARIABLES-DATA
056900                                CBSA-WAGE-INDEX-DATA
057000         GOBACK.
057100
057101
057102*******************************************************
057103*****    FY 2015 VERSION 0
057104***
057105     IF  HHA-SERV-THRU-DATE > 20141231
057106         CALL  HHCAL152   USING HHA-INPUT-DATA
057107                                HOLD-VARIABLES-DATA
057108                                CBSA-WAGE-INDEX-DATA
057109         GOBACK.
057110
057200*******************************************************
057300*****    FY 2014 VERSION 0
057400***
057500     IF  HHA-SERV-THRU-DATE > 20131231
057600         CALL  HHCAL145   USING HHA-INPUT-DATA
057700                                HOLD-VARIABLES-DATA
057800                                CBSA-WAGE-INDEX-DATA
057900         GOBACK.
058000
058100*******************************************************
058200*****    FY 2013 VERSION 0
058300***
058400     IF  HHA-SERV-THRU-DATE > 20121231
058500         CALL  HHCAL132   USING HHA-INPUT-DATA
058600                                HOLD-VARIABLES-DATA
058700                                CBSA-WAGE-INDEX-DATA
058800         GOBACK.
058900
059000*******************************************************
059100*****    FY 2012 VERSION 0
059200***
059300     IF  HHA-SERV-THRU-DATE > 20111231
059400         CALL  HHCAL122   USING HHA-INPUT-DATA
059500                                HOLD-VARIABLES-DATA
059600                                CBSA-WAGE-INDEX-DATA
059700         GOBACK.
059800
059900*******************************************************
060000*****    FY 2011 VERSION 0
060100***
060200     IF  HHA-SERV-THRU-DATE > 20101231
060300         CALL  HHCAL113   USING HHA-INPUT-DATA
060400                                HOLD-VARIABLES-DATA
060500                                CBSA-WAGE-INDEX-DATA
060600         GOBACK.
060700
060800*******************************************************
060900*****    FY 2010 VERSION B
061000***
061100     IF  HHA-SERV-THRU-DATE > 20100331
061200         CALL  HHCAL10A   USING HHA-INPUT-DATA
061300                                HOLD-VARIABLES-DATA
061400                                CBSA-WAGE-INDEX-DATA
061500         GOBACK.
061600
061700*******************************************************
061800*****    FY 2010 VERSION A
061900***
062000     IF  HHA-SERV-THRU-DATE > 20091231
062100         CALL  HHCAL10D   USING HHA-INPUT-DATA
062200                                HOLD-VARIABLES-DATA
062300                                CBSA-WAGE-INDEX-DATA
062400         GOBACK.
062500
062600*******************************************************
062700*****    FY 2009 VERSION 3
062800***
062900     IF  HHA-SERV-THRU-DATE > 20081231
063000         CALL  HHCAL095   USING HHA-INPUT-DATA
063100                                HOLD-VARIABLES-DATA
063200                                CBSA-WAGE-INDEX-DATA
063300         GOBACK.
063400
063500*******************************************************
063600*****    FY 2008 VERSION 6
063700***
063800     IF  HHA-SERV-THRU-DATE > 20071231
063900         CALL  HHCAL088   USING HHA-INPUT-DATA
064000                                HOLD-VARIABLES-DATA
064100                                CBSA-WAGE-INDEX-DATA
064200         GOBACK.
064300
064400*******************************************************
064500*****    FY 2007 VERSION 2
064600***
064700     IF  HHA-SERV-THRU-DATE > 20061231
064800         CALL  HHCAL074   USING HHA-INPUT-DATA
064900                                HOLD-VARIABLES-DATA
065000                                CBSA-WAGE-INDEX-DATA
065100         GOBACK.
065200
065300*******************************************************
065400*******************************************************
065500*****    FY 2006 VERSION 4
065600***
065700     IF  HHA-SERV-THRU-DATE > 20051231
065800         CALL  HHCAL066   USING HHA-INPUT-DATA
065900                                HOLD-VARIABLES-DATA
066000                                CBSA-WAGE-INDEX-DATA
066100         GOBACK.
066200
066300*******************************************************
066400*******************************************************
066500*****    FY 2005 VERSION 1
066600***
066700     IF  HHA-SERV-THRU-DATE > 20041231
066800         CALL  HHCAL053   USING HHA-INPUT-DATA
066900                                HOLD-VARIABLES-DATA
067000                                WAGE-INDEX-DATA
067100         GOBACK.
067200
067300*******************************************************
067400*******************************************************
067500*****    FY 2004 VERSION 2
067600***
067700     IF  HHA-SERV-THRU-DATE > 20030930
067800         CALL  HHCAL044   USING HHA-INPUT-DATA
067900                                HOLD-VARIABLES-DATA
068000                                WAGE-INDEX-DATA
068100         GOBACK.
068200
068300*******************************************************
068400*****    FY 2003 VERSION 1
068500***
068600     IF  HHA-SERV-THRU-DATE > 20020930
068700         CALL  HHCAL033   USING HHA-INPUT-DATA
068800                                HOLD-VARIABLES-DATA
068900                                WAGE-INDEX-DATA
069000         GOBACK.
069100
069200*******************************************************
069300*****    FY 2002 VERSION 1
069400***
069500     IF  HHA-SERV-THRU-DATE > 20010930
069600         CALL  HHCAL023   USING HHA-INPUT-DATA
069700                                HOLD-VARIABLES-DATA
069800                                WAGE-INDEX-DATA
069900         GOBACK.
070000
070100*******************************************************
070200*****    FY 2001 VERSION 4
070300***
070400     IF  HHA-SERV-THRU-DATE > 20000930
070500         CALL  HHCAL016   USING HHA-INPUT-DATA
070600                                HOLD-VARIABLES-DATA
070700                                WAGE-INDEX-DATA
070800         GOBACK.
070900
071000*******************************************************
071100     MOVE '40' TO HHA-PAY-RTC.
071200     GOBACK.
071300
071400 0100-EXIT.  EXIT.
071500
071600 1250-GET-CBSA.
071700     SET MA1 TO 1.
071800
071900     SEARCH T-CBSA-DATA VARYING MA1
072000            AT END
072100               MOVE '30' TO HHA-PAY-RTC
072200               GO TO 1250-EXIT
072300            WHEN T-CBSA (MA1) = HHA-CBSA
072400               SET MA2 TO MA1.
072500
072600 1250-EXIT.  EXIT.
072700
072800 1260-GET-CBSA-WAGE-INDEX.
072900
073000     IF HHA-VALID-TOB-RAP
073100        IF HHA-SERV-FROM-DATE NOT < T-CBSA-EFFDATE (MA2)
073200           MOVE T-CBSA         (MA2) TO WIR-CBSA
073300           MOVE T-CBSA-EFFDATE (MA2) TO WIR-CBSA-EFFDATE
073400           MOVE T-CBSA-WAGEIND (MA2) TO WIR-CBSA-WAGEIND
073500               GO TO 1260-EXIT.
073600
073700     IF HHA-VALID-TOB-CLAIM
073800        IF HHA-SERV-THRU-DATE NOT < T-CBSA-EFFDATE (MA2)
073900           MOVE T-CBSA         (MA2) TO WIR-CBSA
074000           MOVE T-CBSA-EFFDATE (MA2) TO WIR-CBSA-EFFDATE
074100           MOVE T-CBSA-WAGEIND (MA2) TO WIR-CBSA-WAGEIND
074200               GO TO 1260-EXIT.
074300
074400     IF WIR-CBSA-WAGEIND NOT NUMERIC
074500           MOVE '30' TO HHA-PAY-RTC.
074600
074700
074800 1260-EXIT.  EXIT.
074900
075000 1600-GET-MSA.
075100     SET MU1 TO 1.
075200
075300     SEARCH M-MSA-DATA VARYING MU1
075400            AT END
075500               MOVE '30' TO HHA-PAY-RTC
075600               GO TO 1600-EXIT
075700            WHEN TB-MSA (MU1) = HHA-MSA2
075800               SET MU2 TO MU1.
075900
076000 1600-EXIT.  EXIT.
076100
076200 1700-GET-WAGE-INDEX.
076300
076400     IF HHA-VALID-TOB-RAP
076500        IF HHA-SERV-FROM-DATE NOT < TB-EFFDATE (MU2)
076600           MOVE TB-MSA     (MU2) TO WIR-MSA
076700           MOVE TB-EFFDATE (MU2) TO WIR-EFFDATE
076800           MOVE TB-WAGEIND (MU2) TO WIR-AREA-WAGEIND.
076900
077000     IF HHA-VALID-TOB-CLAIM
077100        IF HHA-SERV-THRU-DATE NOT < TB-EFFDATE (MU2)
077200           MOVE TB-MSA     (MU2) TO WIR-MSA
077300           MOVE TB-EFFDATE (MU2) TO WIR-EFFDATE
077400           MOVE TB-WAGEIND (MU2) TO WIR-AREA-WAGEIND.
077500
077600 1700-EXIT.  EXIT.
077700
077800 2000-GET-HRG.
077900
078000     IF HHA-HRG-INPUT-CODE (SUB1) = SPACES
078100        MOVE 6 TO SUB1
078200        GO TO 2000-EXIT.
078300
078400     MOVE HHA-HRG-INPUT-CODE (SUB1) TO SEARCH-HRG.
078500     MOVE HHA-HRG-INPUT-CODE (SUB1) TO WORK-HRG.
078600     MOVE HHA-HRG-INPUT-CODE (SUB1) TO WORK-ORIG-HRG.
078700     MOVE HHA-HRG-INPUT-CODE (SUB1) TO HHA-HRG-OUTPUT-CODE (SUB1).
078800
078900     IF HHA-MED-REVIEW-INDICATOR (SUB1) = 'Y' AND
079000        HHA-RECODE-IND = '0'
079100        GO TO 2000-SEARCH-HRG.
079200
079300**********************************
079400*  IF LUPA SKIP RECODING OF HIPPS CODE
079500**********************************
079600
079700     IF HHA-VALID-TOB-CLAIM AND
079800         (HHA-REVENUE-SUM1-6-QTY-ALL < 5 )
079900        GO TO 2000-SEARCH-HRG.
080000
080100****RECODESTART*******************
080200
080300     IF HHA-VALID-TOB-RAP
080400        GO TO 2000-SEARCH-HRG.
080500
080600     IF SEARCH-HRG1 = '0' OR '6' OR '7' OR '8' OR '9'
080700        MOVE '70' TO HHA-PAY-RTC
080800        MOVE 6 TO SUB1
080900        GO TO 2000-EXIT.
081000
081100**********************************
081200*   RECODING OF HIPPS CODE DEPENDING ON CLAIM INFORMATION
081300**********************************
081400**********************************
081500
081600     IF HHA-RECODE-IND = '1' OR '3'
081700        PERFORM 2300-RECODE-HRG THRU 2300-EXIT
081800         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
081900         MOVE WORK-HRG TO SEARCH-HRG
082000        GO TO 2000-GET-HRG-TWO.
082100
082200     IF WORK-HRG1 = '5'
082300        PERFORM 2305-RECODE-EPISODE THRU 2305-EXIT
082400         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
082500         MOVE WORK-HRG TO SEARCH-HRG
082600        GO TO 2000-GET-HRG-TWO.
082700
082800     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'
082900        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT
083000         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
083100         MOVE WORK-HRG TO SEARCH-HRG
083200        GO TO 2000-GET-HRG-TWO.
083300
083400
083500 2000-GET-HRG-TWO.
083600
083700     IF HHA-RECODE-IND = '1' OR '3'
083800        PERFORM 2300-RECODE-HRG THRU 2300-EXIT
083900         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
084000         MOVE WORK-HRG TO SEARCH-HRG
084100        GO TO 2000-SEARCH-HRG.
084200
084300     IF WORK-HRG1 = '5' AND
084400        WORK-ORIG-HRG1 NOT = '5'
084500        PERFORM 2305-RECODE-EPISODE THRU 2305-EXIT
084600         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
084700         MOVE WORK-HRG TO SEARCH-HRG
084800        GO TO 2000-SEARCH-HRG.
084900
085000     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'
085100        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT
085200         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
085300         MOVE WORK-HRG TO SEARCH-HRG.
085400
085500 2000-SEARCH-HRG.
085600
085700     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'
085800        MOVE ' ' TO SEARCH-HRG5.
085900
086000
086100     SET HU1 TO 1.
086200     SEARCH M-HRG-DATA VARYING HU1
086300            AT END
086400               MOVE '70' TO HHA-PAY-RTC
086500               MOVE 6 TO SUB1
086600               GO TO 2000-EXIT
086700            WHEN TB-HRG-HRG (HU1) = SEARCH-HRG
086800               SET HU2 TO HU1
086900               PERFORM 2100-GET-HRG-WIEGHTS THRU 2100-EXIT.
087000
087100 2000-EXIT.  EXIT.
087200
087300 2100-GET-HRG-WIEGHTS.
087400
087500      PERFORM 2200-GET-HRG-SEARCH THRU 2200-EXIT
087600           VARYING HU2 FROM HU1 BY 1 UNTIL
087700           TB-HRG-HRG (HU2) NOT = SEARCH-HRG.
087800
087900 2100-EXIT.   EXIT.
088000
088100 2200-GET-HRG-SEARCH.
088200
088300     IF HHA-VALID-TOB-RAP
088400        IF HHA-SERV-FROM-DATE NOT < TB-HRG-EFFDATE (HU2)
088500*          MOVE HHA-HRG-INPUT-CODE (SUB1)
088600*                                 TO HHA-HRG-OUTPUT-CODE (SUB1)
088700           MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1).
088800
088900     IF HHA-VALID-TOB-CLAIM
089000        IF HHA-SERV-THRU-DATE NOT < TB-HRG-EFFDATE (HU2)
089100           PERFORM 2250-CHECK-FOR-WHICH-HRG THRU 2250-EXIT.
089200
089300 2200-EXIT.  EXIT.
089400
089500 2250-CHECK-FOR-WHICH-HRG.
089600
089700     IF HHA-MED-REVIEW-INDICATOR (SUB1) NOT = 'Y' AND
089800                                        NOT = 'N'
089900               MOVE '25' TO HHA-PAY-RTC
090000               MOVE 6 TO SUB1
090100               GO TO 2250-EXIT.
090200
090300     IF SEARCH-HRG1    = '1' OR '2' OR '3' OR '4' OR '5'
090400             MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)
090500             MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
090600               GO TO 2250-EXIT.
090700
090800     IF (HHA-REVENUE-SUM1-3-QTY-THR < 10)
090900        IF (HHA-MED-REVIEW-INDICATOR (SUB1) = 'N')
091000          IF TB-HRG-HRG (HU2) NOT = TB-HRG-HRG2 (HU2)
091100             MOVE TB-HRG-HRG2 (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
091200             MOVE TB-HRG-WGTS2 (HU2) TO HHA-HRG-WGTS (SUB1)
091300          ELSE
091400             MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
091500             MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)
091600        ELSE
091700           MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
091800           MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)
091900     ELSE
092000       MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
092100       MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1).
092200
092300     IF (HHA-REVENUE-SUM1-6-QTY-ALL < 5)
092400       MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
092500       MOVE ZEROES            TO HHA-HRG-WGTS (SUB1).
092600
092700
092800 2250-EXIT.  EXIT.
092900
093000 2300-RECODE-HRG.
093100
093200       MOVE ZEROES            TO HRG-KEEP5-SW1.
093300
093400     IF HHA-RECODE-IND = '1'
093500        PERFORM 2310-RECODE-HRG1 THRU 2310-EXIT
093600               GO TO 2300-EXIT.
093700
093800
093900     IF HHA-RECODE-IND = '3'
094000        PERFORM 2312-RECODE-HRG2 THRU 2312-EXIT
094100               GO TO 2300-EXIT.
094200
094300
094400 2300-EXIT.  EXIT.
094500
094600 2305-RECODE-EPISODE.
094700
094800     IF HHA-EPISODE-TIMING = 1
094900        PERFORM 2410-RECODE-EPP1 THRU 2410-EXIT
095000               GO TO 2305-EXIT.
095100
095200
095300     IF HHA-EPISODE-TIMING = 2
095400        PERFORM 2415-RECODE-EPP2 THRU 2415-EXIT
095500               GO TO 2305-EXIT.
095600
095700
095800 2305-EXIT.  EXIT.
095900
096000 2310-RECODE-HRG1.
096100
096200       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)
096300         MOVE '1' TO WORK-HRG1
096400        PERFORM 2315-RECODE-HRG1-1 THRU 2315-EXIT
096500               GO TO 2310-EXIT.
096600
096700       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
096800           HHA-REVENUE-SUM1-3-QTY-THR < 20)
096900             MOVE '2' TO WORK-HRG1
097000        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT
097100               GO TO 2310-EXIT.
097200
097300       IF (HHA-REVENUE-SUM1-3-QTY-THR > 19)
097400             MOVE '2' TO WORK-HRG1
097500             MOVE '1' TO HRG-KEEP5-SW1
097600        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT
097700               GO TO 2310-EXIT.
097800
097900 2310-EXIT.  EXIT.
098000
098100 2312-RECODE-HRG2.
098200
098300       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)
098400         MOVE '3' TO WORK-HRG1
098500        PERFORM 2325-RECODE-HRG1-3 THRU 2325-EXIT
098600               GO TO 2312-EXIT.
098700
098800       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
098900           HHA-REVENUE-SUM1-3-QTY-THR < 20)
099000             MOVE '4' TO WORK-HRG1
099100        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT
099200               GO TO 2312-EXIT.
099300
099400       IF (HHA-REVENUE-SUM1-3-QTY-THR > 20)
099500             MOVE '4' TO WORK-HRG1
099600             MOVE '1' TO HRG-KEEP5-SW1
099700        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT
099800               GO TO 2312-EXIT.
099900
100000 2312-EXIT.  EXIT.
100100
129100 2410-RECODE-EPP1.
129200
129300       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)
129400         MOVE '1' TO WORK-HRG1
129500        PERFORM 2315-RECODE-HRG1-1 THRU 2315-EXIT
129600               GO TO 2410-EXIT.
129700
129800       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
129900           HHA-REVENUE-SUM1-3-QTY-THR < 20)
130000             MOVE '2' TO WORK-HRG1
130100        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT
130200               GO TO 2410-EXIT.
130300
130400       IF (HHA-REVENUE-SUM1-3-QTY-THR > 19)
130500         MOVE 'K' TO WORK-HRG4
130600         IF WORK-ORIG-HRG1 = '1' OR '2'
130700            PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT
130800         ELSE
130900            PERFORM 2480-RECODE-HRG5-4 THRU 2480-EXIT
131000               GO TO 2410-EXIT.
131100
131200
131300 2410-EXIT.  EXIT.
131400
131500 2415-RECODE-EPP2.
131600
131700       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)
131800         MOVE '3' TO WORK-HRG1
131900        PERFORM 2325-RECODE-HRG1-3 THRU 2325-EXIT
132000               GO TO 2415-EXIT.
132100
132200
132300       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
132400           HHA-REVENUE-SUM1-3-QTY-THR < 20)
132500             MOVE '4' TO WORK-HRG1
132600        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT
132700               GO TO 2415-EXIT.
132800
132900       IF (HHA-REVENUE-SUM1-3-QTY-THR > 19)
133000             MOVE 'K' TO WORK-HRG4
133100         IF WORK-ORIG-HRG1 = '1' OR '2'
133200            PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT
133300         ELSE
133400            PERFORM 2480-RECODE-HRG5-4 THRU 2480-EXIT
133500               GO TO 2415-EXIT.
133600
133700 2415-EXIT.  EXIT.
133800
133900 2430-RECODE-HRG4-1.
134100
134200     IF WORK-HRG1 = '1' OR '3'
134300        PERFORM 2440-RECODE-HRG4-2  THRU 2440-EXIT
134400        GO TO 2430-EXIT.
134500
134600
134700     IF WORK-HRG1 = '2' OR '4'
134800        PERFORM 2450-RECODE-HRG4-3  THRU 2450-EXIT
134900        GO TO 2430-EXIT.
135000
135100 2430-EXIT.  EXIT.
135200
135300
135400 2440-RECODE-HRG4-2.
135500
135600     IF  HHA-REVENUE-SUM1-3-QTY-THR < 6
135700             MOVE 'K' TO WORK-HRG4.
135800
135900     IF  HHA-REVENUE-SUM1-3-QTY-THR = 6
136000             MOVE 'L' TO WORK-HRG4.
136100
136200
136300     IF (HHA-REVENUE-SUM1-3-QTY-THR >  6 AND
136400         HHA-REVENUE-SUM1-3-QTY-THR < 10)
136500             MOVE 'M' TO WORK-HRG4.
136600
136700     IF  HHA-REVENUE-SUM1-3-QTY-THR = 10
136800             MOVE 'N' TO WORK-HRG4.
136900
137000     IF (HHA-REVENUE-SUM1-3-QTY-THR > 10 AND
137100         HHA-REVENUE-SUM1-3-QTY-THR < 14)
137200             MOVE 'P' TO WORK-HRG4.
137300
137400     IF (WORK-HRG1 = '1' AND
137500         HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
137600         HHA-REVENUE-SUM1-3-QTY-THR < 20)
137700           MOVE '2' TO WORK-HRG1
137800           MOVE '1' TO HHA-RECODE-IND
137900           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1
138000           GO TO 2440-EXIT.
138100
138200
138300     IF (WORK-HRG1 = '3' AND
138400         HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
138500         HHA-REVENUE-SUM1-3-QTY-THR < 20)
138600           MOVE '4' TO WORK-HRG1
138700           MOVE '3' TO HHA-RECODE-IND
138800           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1
138900           GO TO 2440-EXIT.
139000
139100
139200     IF (WORK-HRG1 = '1' AND
139300         HHA-REVENUE-SUM1-3-QTY-THR > 19)
139400           MOVE '5' TO WORK-HRG1
139500*          MOVE '1' TO HHA-RECODE-IND
139600          PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT
139700           GO TO 2440-EXIT.
139800
139900
140000     IF (WORK-HRG1 = '3' AND
140100         HHA-REVENUE-SUM1-3-QTY-THR > 19)
140200           MOVE '5' TO WORK-HRG1
140300*          MOVE '1' TO HHA-RECODE-IND
140400          PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT
140500           GO TO 2440-EXIT.
140600
140700
140800 2440-EXIT.  EXIT.
140900
141000
141100 2450-RECODE-HRG4-3.
141200
141300
141400     IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
141500         HHA-REVENUE-SUM1-3-QTY-THR < 16)
141600             MOVE 'K' TO WORK-HRG4
141700             GO TO 2450-EXIT.
141800
141900     IF (HHA-REVENUE-SUM1-3-QTY-THR > 15 AND
142000         HHA-REVENUE-SUM1-3-QTY-THR < 18)
142100             MOVE 'L' TO WORK-HRG4
142200             GO TO 2450-EXIT.
142300
142400     IF (HHA-REVENUE-SUM1-3-QTY-THR > 17 AND
142500         HHA-REVENUE-SUM1-3-QTY-THR < 20)
142600             MOVE 'M' TO WORK-HRG4
142700             GO TO 2450-EXIT.
142800
142900     IF (WORK-HRG1 = '2' AND
143000         HHA-REVENUE-SUM1-3-QTY-THR < 14)
143100           MOVE '1' TO WORK-HRG1
143200           MOVE '1' TO HHA-RECODE-IND
143300           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1
143400             GO TO 2450-EXIT.
143500
143600
143700     IF (WORK-HRG1 = '4' AND
143800         HHA-REVENUE-SUM1-3-QTY-THR < 14)
143900           MOVE '3' TO WORK-HRG1
144000           MOVE '3' TO HHA-RECODE-IND
144100           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1
144200             GO TO 2450-EXIT.
144300
144400
144500     IF (WORK-HRG1 = '2' AND
144600         HHA-REVENUE-SUM1-3-QTY-THR > 19)
144700           MOVE '5' TO WORK-HRG1
144800*          MOVE '1' TO HHA-RECODE-IND
144900*       IF HRG-KEEP5-SW1 = 1
145000*         PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT
145100*          MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
145200*          MOVE WORK-HRG TO SEARCH-HRG
145300*          GO TO 2450-EXIT
145400*       ELSE
145500          PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT
145600           GO TO 2450-EXIT.
145700
145800     IF (WORK-HRG1 = '4' AND
145900         HHA-REVENUE-SUM1-3-QTY-THR > 19)
146000           MOVE '5' TO WORK-HRG1
146100*          MOVE '1' TO HHA-RECODE-IND
146200          PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT
146300           GO TO 2450-EXIT.
146400
146500
146600 2450-EXIT.  EXIT.
146700
162100
162200 2600-RECODE-HRG-POS4.
162300
162400        IF  HHA-REVENUE-SUM1-3-QTY-THR < 6
162500             MOVE 'K' TO WORK-HRG4.
162600
162700        IF  HHA-REVENUE-SUM1-3-QTY-THR = 6
162800             MOVE 'L' TO WORK-HRG4.
162900
163000        IF (HHA-REVENUE-SUM1-3-QTY-THR >  6 AND
163100            HHA-REVENUE-SUM1-3-QTY-THR < 10)
163200             MOVE 'M' TO WORK-HRG4.
163300
163400        IF  HHA-REVENUE-SUM1-3-QTY-THR = 10
163500             MOVE 'N' TO WORK-HRG4.
163600
163700        IF (HHA-REVENUE-SUM1-3-QTY-THR > 10 AND
163800            HHA-REVENUE-SUM1-3-QTY-THR < 14)
163900             MOVE 'P' TO WORK-HRG4.
164000
164100        IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND
164200            HHA-REVENUE-SUM1-3-QTY-THR < 16)
164300             MOVE 'K' TO WORK-HRG4.
164400
164500        IF (HHA-REVENUE-SUM1-3-QTY-THR > 15 AND
164600            HHA-REVENUE-SUM1-3-QTY-THR < 18)
164700             MOVE 'L' TO WORK-HRG4.
164800
164900        IF (HHA-REVENUE-SUM1-3-QTY-THR > 17 AND
165000            HHA-REVENUE-SUM1-3-QTY-THR < 20)
165100             MOVE 'M' TO WORK-HRG4.
165200
165300        IF  HHA-REVENUE-SUM1-3-QTY-THR > 19
165400             MOVE 'K' TO WORK-HRG4.
165500
165600 2600-EXIT.  EXIT.
165700***===================================================***
165800
165900 2700-GET-REV.
166000
166100     IF HHA-REVENUE-CODE (SUB1) = SPACES
166200        MOVE 6 TO SUB1
166300        GO TO 2700-EXIT.
166400
166500     SET RU1 TO 1.
166600     SEARCH M-REV-DATA VARYING RU1
166700            AT END
166800               MOVE '80' TO HHA-PAY-RTC
166900               MOVE 6 TO SUB1
167000               GO TO 2700-EXIT
167100            WHEN TB-REV-CODE (RU1) = HHA-REVENUE-CODE (SUB1)
167200               SET RU2 TO RU1
167300               PERFORM 2750-GET-REV-DOLLARS THRU 2750-EXIT.
167400
167500 2700-EXIT.  EXIT.
167600
167700 2750-GET-REV-DOLLARS.
167800
167900      PERFORM 2800-GET-REV-SEARCH THRU 2800-EXIT
168000           VARYING RU2 FROM RU1 BY 1 UNTIL
168100           TB-REV-CODE (RU2) NOT = HHA-REVENUE-CODE (SUB1).
168200
168300 2750-EXIT.   EXIT.
168400
168500 2800-GET-REV-SEARCH.
168600
168700        IF HHA-SERV-THRU-DATE NOT < TB-REV-EFFDATE (RU2)
168800           MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO
168900                    HHA-REVENUE-DOLL-RATE (SUB1)
169000        ELSE
169100           GO TO 2800-EXIT.
169200
169300           IF HHA-SERV-THRU-DATE > 20010331 AND
169400              HHA-SERV-THRU-DATE < 20060101
169500              IF HHA-MSA2-RURAL-CHECK
169600                  MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO
169700                    HHA-REVENUE-DOLL-RATE (SUB1).
169800
169900           IF HHA-SERV-THRU-DATE > 20051231 AND
170000              HHA-SERV-THRU-DATE < 20070101 AND
170100              HHA-SERV-FROM-DATE > 20051231
170200              IF HHA-CBSA-RURAL-CHECK
170300              OR HHA-CBSA-RURAL-CHECK-ALL
170400                  MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO
170500                    HHA-REVENUE-DOLL-RATE (SUB1)
170600                    GO TO 2800-EXIT.
170700
170800           IF HHA-SERV-THRU-DATE > 20061231 AND
170900              HHA-SERV-FROM-DATE > 20061231 AND
171000              HHA-SERV-THRU-DATE < 20070101
171100                IF HHA-CBSA-RURAL-CHECK
171200                OR HHA-CBSA-RURAL-CHECK-ALL
171300                   IF HHA-WITH-DATA-CHECK
171400                      MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO
171500                      HHA-REVENUE-DOLL-RATE (SUB1)
171600                   ELSE
171700                      MOVE TB-DOLL-RATE-RURAL-NOSUBMIT (RU2) TO
171800                      HHA-REVENUE-DOLL-RATE (SUB1)
171900                   END-IF
172000                ELSE
172100                   IF HHA-WITH-DATA-CHECK
172200                      MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO
172300                      HHA-REVENUE-DOLL-RATE (SUB1)
172400                   ELSE
172500                      MOVE TB-DOLL-RATE-NRURAL-NOSUBMIT (RU2) TO
172600                      HHA-REVENUE-DOLL-RATE (SUB1)
172700                   END-IF
172800                END-IF
172900           END-IF.
173000
173100                IF HHA-CBSA-RURAL-CHECK
173200                OR HHA-CBSA-RURAL-CHECK-ALL
173300                   IF HHA-WITH-DATA-CHECK
173400                      MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO
173500                      HHA-REVENUE-DOLL-RATE (SUB1)
173600                   ELSE
173700                      MOVE TB-DOLL-RATE-RURAL-NOSUBMIT (RU2) TO
173800                      HHA-REVENUE-DOLL-RATE (SUB1)
173900                   END-IF
174000                ELSE
174100                   IF HHA-WITH-DATA-CHECK
174200                      MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO
174300                      HHA-REVENUE-DOLL-RATE (SUB1)
174400                   ELSE
174500                      MOVE TB-DOLL-RATE-NRURAL-NOSUBMIT (RU2) TO
174600                      HHA-REVENUE-DOLL-RATE (SUB1)
174700                   END-IF
174800                END-IF.
174900
175000
175100 2800-EXIT.  EXIT.
175110
175200****RECODING LOGIC ***************
176310
176320 2315-RECODE-HRG1-1.
176330
176331     IF HHA-SERV-THRU-DATE < 20150101
176332        PERFORM 2315-RECODE-HRG1-1-2014
176333           THRU 2315-RECORD-HRG1-1-2014-EXIT
176334     ELSE
176335     IF HHA-SERV-THRU-DATE < 20160101
176336        PERFORM 2315-RECODE-HRG1-1-2015
176337           THRU 2315-RECORD-HRG1-1-2015-EXIT
176338     ELSE
176339     IF HHA-SERV-THRU-DATE < 20170101
176340        PERFORM 2315-RECODE-HRG1-1-2016
176341           THRU 2315-RECORD-HRG1-1-2016-EXIT
176342     END-IF.
176343
176344     PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.
176448
176449 2315-EXIT.  EXIT.
176450
176451 2315-RECODE-HRG1-1-2014.
176452
176453     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D'
176454        MOVE 'A'     TO WORK-HRG2.
176455
176456     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H'
176457        MOVE 'B'     TO WORK-HRG2.
176458
176459     IF HHA-CLINICAL-SEV-EQ1 = 'I' OR 'J' OR 'K' OR
176460                               'L' OR 'M' OR 'N' OR 'O' OR
176461                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
176462                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176463        MOVE 'C'     TO WORK-HRG2.
176464
176465     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'
176466        MOVE 'F'     TO WORK-HRG3.
176467
176468     IF HHA-FUNCTION-SEV-EQ1 = 'F'
176469        MOVE 'G'     TO WORK-HRG3.
176470
176471     IF HHA-FUNCTION-SEV-EQ1 =     'G' OR 'H' OR 'I' OR
176472                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
176473                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
176474                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176475        MOVE 'H'     TO WORK-HRG3.
176476
176477 2315-RECORD-HRG1-1-2014-EXIT.
176478     EXIT.
176479
176480 2315-RECODE-HRG1-1-2015.
176481
176482     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B'
176483        MOVE 'A'     TO WORK-HRG2.
176484
176485     IF HHA-CLINICAL-SEV-EQ1 = 'C' OR 'D'
176486        MOVE 'B'     TO WORK-HRG2.
176487
176488     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H' OR
176489                               'I' OR 'J' OR 'K' OR
176490                               'L' OR 'M' OR 'N' OR 'O' OR
176491                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
176492                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176493        MOVE 'C'     TO WORK-HRG2.
176494
176495     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'
176496                            OR 'F' OR 'G' OR 'H' OR 'I' OR 'J'
176497                            OR 'K' OR 'L' OR 'M' OR 'N' OR 'O'
176498        MOVE 'F'     TO WORK-HRG3.
176499
176500     IF HHA-FUNCTION-SEV-EQ1 = 'P'
176501        MOVE 'G'     TO WORK-HRG3.
176502
176503     IF HHA-FUNCTION-SEV-EQ1 =     'Q' OR 'R' OR 'S' OR
176504                                'T' OR 'U' OR 'V' OR
176505                                'W' OR 'X' OR 'Y' OR 'Z'
176506        MOVE 'H'     TO WORK-HRG3.
176507
176508 2315-RECORD-HRG1-1-2015-EXIT.
176509     EXIT.
176510
176511 2315-RECODE-HRG1-1-2016.
176512
176513     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B'
176514        MOVE 'A'     TO WORK-HRG2.
176515
176516     IF HHA-CLINICAL-SEV-EQ1 = 'C' OR 'D'
176517        MOVE 'B'     TO WORK-HRG2.
176518
176519     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H' OR
176520                               'I' OR 'J' OR 'K' OR
176521                               'L' OR 'M' OR 'N' OR 'O' OR
176522                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
176523                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176524        MOVE 'C'     TO WORK-HRG2.
176525
176526     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'
176527                            OR 'F' OR 'G' OR 'H' OR 'I' OR 'J'
176528                            OR 'K' OR 'L' OR 'M' OR 'N' OR 'O'
176529        MOVE 'F'     TO WORK-HRG3.
176530
176531     IF HHA-FUNCTION-SEV-EQ1 = 'P'
176532        MOVE 'G'     TO WORK-HRG3.
176533
176534     IF HHA-FUNCTION-SEV-EQ1 =     'Q' OR 'R' OR 'S' OR
176535                                'T' OR 'U' OR 'V' OR
176536                                'W' OR 'X' OR 'Y' OR 'Z'
176537        MOVE 'H'     TO WORK-HRG3.
176538
176539 2315-RECORD-HRG1-1-2016-EXIT.
176540     EXIT.
176541
176542 2320-RECODE-HRG1-2.
176550
176600     IF HHA-SERV-THRU-DATE < 20150101
176610        PERFORM 2320-RECODE-HRG1-2-2014
176620           THRU 2320-RECORD-HRG1-2-2014-EXIT
176800     ELSE
176801     IF HHA-SERV-THRU-DATE < 20160101
176802        PERFORM 2320-RECODE-HRG1-2-2015
176803           THRU 2320-RECORD-HRG1-2-2015-EXIT
176811     ELSE
176812     IF HHA-SERV-THRU-DATE < 20170101
176813        PERFORM 2320-RECODE-HRG1-2-2016
176814           THRU 2320-RECORD-HRG1-2-2016-EXIT
176840     END-IF.
176841
176842     PERFORM 2430-RECODE-HRG4-1  THRU 2430-EXIT.
176845
176850 2320-EXIT.
176860     EXIT.
176861
176862 2320-RECODE-HRG1-2-2014.
176863
176864     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR
176865                               'E' OR 'F'
176866        MOVE 'A'     TO WORK-HRG2.
176867
176868     IF HHA-CLINICAL-SEV-EQ2 = 'G' OR 'H' OR
176869                               'I' OR 'J' OR 'K' OR 'L' OR
176870                               'M' OR 'N'
176871        MOVE 'B'     TO WORK-HRG2.
176872
176873     IF HHA-CLINICAL-SEV-EQ2 = 'O' OR 'P' OR 'Q' OR 'R' OR
176874                               'S' OR 'T' OR 'U' OR
176875                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176876        MOVE 'C'     TO WORK-HRG2.
176877
176878     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR
176879                               'E' OR 'F'
176880        MOVE 'F'     TO WORK-HRG3.
176881
176882     IF HHA-FUNCTION-SEV-EQ2 = 'G'
176883        MOVE 'G'     TO WORK-HRG3.
176884
176885     IF HHA-FUNCTION-SEV-EQ2 =     'H' OR 'I' OR
176886                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
176887                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
176888                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176889        MOVE 'H'     TO WORK-HRG3.
176890
176891 2320-RECORD-HRG1-2-2014-EXIT.
176892     EXIT.
176893
176894 2320-RECODE-HRG1-2-2015.
176895
176896     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B'
176897        MOVE 'A'     TO WORK-HRG2.
176898
176899     IF HHA-CLINICAL-SEV-EQ2 = 'C' OR 'D' OR 'E' OR
176900                               'F' OR 'G' OR 'H'
176901        MOVE 'B'     TO WORK-HRG2.
176902
176903     IF HHA-CLINICAL-SEV-EQ2 = 'I' OR 'J' OR 'K' OR 'L' OR
176904                               'M' OR 'N' OR
176905                               'O' OR 'P' OR 'Q' OR 'R' OR
176906                               'S' OR 'T' OR 'U' OR
176907                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176908        MOVE 'C'     TO WORK-HRG2.
176909
176910     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'
176911        MOVE 'F'     TO WORK-HRG3.
176912
176913     IF HHA-FUNCTION-SEV-EQ2 = 'E' OR 'F' OR 'G' OR
176914                               'H' OR 'I' OR
176915                               'J' OR 'K' OR 'L' OR 'M' OR 'N'
176916        MOVE 'G'     TO WORK-HRG3.
176917
176918     IF HHA-FUNCTION-SEV-EQ2 =     'O' OR
176919                                'P' OR 'Q' OR 'R' OR
176920                                'S' OR 'T' OR 'U' OR
176921                                'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
176922        MOVE 'H'     TO WORK-HRG3.
176923
176930 2320-RECORD-HRG1-2-2015-EXIT.
177000     EXIT.
177010
177100 2320-RECODE-HRG1-2-2016.
177110
177120     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B'
177130        MOVE 'A'     TO WORK-HRG2.
177140
177150     IF HHA-CLINICAL-SEV-EQ2 = 'C' OR 'D' OR 'E' OR
177160                               'F' OR 'G' OR 'H'
177170        MOVE 'B'     TO WORK-HRG2.
177180
177190     IF HHA-CLINICAL-SEV-EQ2 = 'I' OR 'J' OR 'K' OR 'L' OR
177191                               'M' OR 'N' OR
177192                               'O' OR 'P' OR 'Q' OR 'R' OR
177193                               'S' OR 'T' OR 'U' OR
177194                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
177195        MOVE 'C'     TO WORK-HRG2.
177196
177197     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR
177198                               'E' OR 'F' OR 'G'
177199        MOVE 'F'     TO WORK-HRG3.
177200
177202     IF HHA-FUNCTION-SEV-EQ2 = 'H' OR 'I' OR
177203                               'J' OR 'K' OR 'L' OR 'M' OR 'N'
177204        MOVE 'G'     TO WORK-HRG3.
177205
177206     IF HHA-FUNCTION-SEV-EQ2 =  'O' OR
177207                                'P' OR 'Q' OR 'R' OR
177208                                'S' OR 'T' OR 'U' OR
177209                                'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
177210        MOVE 'H'     TO WORK-HRG3.
177211
177220 2320-RECORD-HRG1-2-2016-EXIT.
177300     EXIT.
177400
177500 2325-RECODE-HRG1-3.
177510
177520     IF HHA-SERV-THRU-DATE < 20150101
177530        PERFORM 2325-RECODE-HRG1-3-2014
177540           THRU 2325-RECORD-HRG1-3-2014-EXIT
177550     ELSE
177560     IF HHA-SERV-THRU-DATE < 20160101
177570        PERFORM 2325-RECODE-HRG1-3-2015
177580           THRU 2325-RECORD-HRG1-3-2015-EXIT
177590     ELSE
177591     IF HHA-SERV-THRU-DATE < 20170101
177592        PERFORM 2325-RECODE-HRG1-3-2016
177593           THRU 2325-RECORD-HRG1-3-2016-EXIT
177594     END-IF.
177595
177597     PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.
177598
177599 2325-EXIT.
177600     EXIT.
177601
177602 2325-RECODE-HRG1-3-2014.
177603
177604     IF HHA-CLINICAL-SEV-EQ3 = 'A' OR 'B'
177605        MOVE 'A'     TO WORK-HRG2.
177606
177607     IF HHA-CLINICAL-SEV-EQ3 = 'C' OR 'D' OR 'E'
177608        MOVE 'B'     TO WORK-HRG2.
177609
177610     IF HHA-CLINICAL-SEV-EQ3 = 'F' OR 'G' OR 'H' OR
177611                               'I' OR 'J' OR 'K' OR 'L' OR
177612                               'M' OR 'N' OR 'O' OR
177613                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
177614                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
177615        MOVE 'C'     TO WORK-HRG2.
177616
177617     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR
177618                               'E' OR 'F' OR 'G' OR 'H'
177619        MOVE 'F'     TO WORK-HRG3.
177620
177621     IF HHA-FUNCTION-SEV-EQ3 = 'I'
177622        MOVE 'G'     TO WORK-HRG3.
177623
177624     IF HHA-FUNCTION-SEV-EQ3 =     'J' OR 'K' OR
177625                                'L' OR 'M' OR 'N' OR 'O' OR
177626                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
177627                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
177628        MOVE 'H'     TO WORK-HRG3.
177629
177630 2325-RECORD-HRG1-3-2014-EXIT.
177700     EXIT.
177800
177900 2325-RECODE-HRG1-3-2015.
177910
177920     IF HHA-CLINICAL-SEV-EQ3 = 'A'
177930        MOVE 'A'     TO WORK-HRG2.
177940
177950     IF HHA-CLINICAL-SEV-EQ3 = 'B'
177960        MOVE 'B'     TO WORK-HRG2.
177970
177980     IF HHA-CLINICAL-SEV-EQ3 = 'C' OR 'D' OR 'E' OR
177990                               'F' OR 'G' OR 'H' OR
177991                               'I' OR 'J' OR 'K' OR 'L' OR
177992                               'M' OR 'N' OR 'O' OR
177993                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
177994                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
177995        MOVE 'C'     TO WORK-HRG2.
177996
177997     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR
177998                               'E' OR 'F' OR 'G' OR 'H' OR
177999                               'I' OR 'J'
178000        MOVE 'F'     TO WORK-HRG3.
178001
178002     IF HHA-FUNCTION-SEV-EQ3 = 'K'
178003        MOVE 'G'     TO WORK-HRG3.
178004
178005     IF HHA-FUNCTION-SEV-EQ3 = 'L' OR 'M' OR 'N' OR 'O' OR
178006                               'P' OR 'Q' OR
178007                               'R' OR 'S' OR 'T' OR 'U' OR
178008                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178009        MOVE 'H'     TO WORK-HRG3.
178010
178020 2325-RECORD-HRG1-3-2015-EXIT.
178100     EXIT.
178110
178200 2325-RECODE-HRG1-3-2016.
178210
178220     IF HHA-CLINICAL-SEV-EQ3 = 'A'
178230        MOVE 'A'     TO WORK-HRG2.
178240
178250     IF HHA-CLINICAL-SEV-EQ3 = 'B'
178260        MOVE 'B'     TO WORK-HRG2.
178270
178280     IF HHA-CLINICAL-SEV-EQ3 = 'C' OR 'D' OR 'E' OR
178290                               'F' OR 'G' OR 'H' OR
178291                               'I' OR 'J' OR 'K' OR 'L' OR
178292                               'M' OR 'N' OR 'O' OR
178293                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
178294                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178295        MOVE 'C'     TO WORK-HRG2.
178296
178297     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR
178298                               'E' OR 'F' OR 'G'
178300        MOVE 'F'     TO WORK-HRG3.
178301
178302     IF HHA-FUNCTION-SEV-EQ3 = 'H' OR 'I' OR 'J' OR 'K'
178303        MOVE 'G'     TO WORK-HRG3.
178304
178305     IF HHA-FUNCTION-SEV-EQ3 = 'L' OR 'M' OR 'N' OR 'O' OR
178306                               'P' OR 'Q' OR
178307                               'R' OR 'S' OR 'T' OR 'U' OR
178308                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178309        MOVE 'H'     TO WORK-HRG3.
178310
178320 2325-RECORD-HRG1-3-2016-EXIT.
178400     EXIT.
178401
178402 2330-RECODE-HRG1-4.
178403
178404     IF HHA-SERV-THRU-DATE < 20150101
178405        PERFORM 2330-RECODE-HRG1-4-2014
178406           THRU 2330-RECORD-HRG1-4-2014-EXIT
178407     ELSE
178408     IF HHA-SERV-THRU-DATE < 20160101
178409        PERFORM 2330-RECODE-HRG1-4-2015
178410           THRU 2330-RECORD-HRG1-4-2015-EXIT
178411     ELSE
178412     IF HHA-SERV-THRU-DATE < 20170101
178413        PERFORM 2330-RECODE-HRG1-4-2016
178414           THRU 2330-RECORD-HRG1-4-2016-EXIT
178415     END-IF.
178416
178486     PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.
178487
178488 2330-EXIT.  EXIT.
178489
178490 2330-RECODE-HRG1-4-2014.
178491
178492     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR
178493                               'E' OR 'F' OR 'G' OR 'H'
178494        MOVE 'A'     TO WORK-HRG2.
178495
178496
178497     IF HHA-CLINICAL-SEV-EQ4 = 'I' OR 'J' OR 'K' OR 'L' OR
178498                               'M' OR 'N' OR 'O' OR 'P'
178499        MOVE 'B'     TO WORK-HRG2.
178500
178501     IF HHA-CLINICAL-SEV-EQ4 = 'Q' OR 'R' OR 'S' OR
178502                               'T' OR 'U' OR
178503                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178504        MOVE 'C'     TO WORK-HRG2.
178505
178506     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR
178507                               'E' OR 'F' OR 'G'
178508        MOVE 'F'     TO WORK-HRG3.
178509
178510     IF HHA-FUNCTION-SEV-EQ4 = 'H'
178511        MOVE 'G'     TO WORK-HRG3.
178512
178513     IF HHA-FUNCTION-SEV-EQ4 =     'I' OR 'J' OR 'K' OR
178514                                'L' OR 'M' OR 'N' OR 'O' OR
178515                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
178516                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178517        MOVE 'H'     TO WORK-HRG3.
178518
178519 2330-RECORD-HRG1-4-2014-EXIT.
178520     EXIT.
178521
178522 2330-RECODE-HRG1-4-2015.
178523
178524     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR
178525                               'E' OR 'F'
178526        MOVE 'A'     TO WORK-HRG2.
178527
178528
178529     IF HHA-CLINICAL-SEV-EQ4 = 'G' OR 'H' OR
178530                               'I' OR 'J' OR 'K' OR 'L' OR
178531                               'M'
178532        MOVE 'B'     TO WORK-HRG2.
178533
178534     IF HHA-CLINICAL-SEV-EQ4 = 'N' OR 'O' OR 'P' OR
178535                               'Q' OR 'R' OR 'S' OR
178536                               'T' OR 'U' OR
178537                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178538        MOVE 'C'     TO WORK-HRG2.
178539
178540     IF HHA-FUNCTION-SEV-EQ4 = 'A'
178541        MOVE 'F'     TO WORK-HRG3.
178542
178543     IF HHA-FUNCTION-SEV-EQ4 = 'B' OR
178544                               'C' OR 'D' OR 'E' OR
178545                               'F' OR 'G' OR 'H'
178546        MOVE 'G'     TO WORK-HRG3.
178547
178548     IF HHA-FUNCTION-SEV-EQ4 =     'I' OR 'J' OR 'K' OR
178549                                'L' OR 'M' OR 'N' OR 'O' OR
178550                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
178551                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178552        MOVE 'H'     TO WORK-HRG3.
178553
178554 2330-RECORD-HRG1-4-2015-EXIT.
178555     EXIT.
178556
178557 2330-RECODE-HRG1-4-2016.
178558
178559     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'
178561        MOVE 'A'     TO WORK-HRG2.
178563
178564     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR 'F' OR 'G' OR 'H' OR
178565                               'I' OR 'J' OR 'K' OR 'L' OR
178566                               'M'
178567        MOVE 'B'     TO WORK-HRG2.
178568
178569     IF HHA-CLINICAL-SEV-EQ4 = 'N' OR 'O' OR 'P' OR
178570                               'Q' OR 'R' OR 'S' OR
178571                               'T' OR 'U' OR
178572                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178573        MOVE 'C'     TO WORK-HRG2.
178574
178575     IF HHA-FUNCTION-SEV-EQ4 = 'A'
178576        MOVE 'F'     TO WORK-HRG3.
178577
178578     IF HHA-FUNCTION-SEV-EQ4 = 'B' OR
178579                               'C' OR 'D' OR 'E' OR
178580                               'F' OR 'G' OR 'H'
178581        MOVE 'G'     TO WORK-HRG3.
178582
178583     IF HHA-FUNCTION-SEV-EQ4 =     'I' OR 'J' OR 'K' OR
178584                                'L' OR 'M' OR 'N' OR 'O' OR
178585                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
178586                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
178587        MOVE 'H'     TO WORK-HRG3.
178588
178589 2330-RECORD-HRG1-4-2016-EXIT.
178590     EXIT.
178591
178592 2475-RECODE-HRG5-3.
178593
178594     IF HHA-SERV-THRU-DATE < 20150101
178595        PERFORM 2475-RECODE-HRG5-3-2014
178596           THRU 2475-RECORD-HRG5-3-2014-EXIT
178597     ELSE
178598     IF HHA-SERV-THRU-DATE < 20160101
178599        PERFORM 2475-RECODE-HRG5-3-2015
178600           THRU 2475-RECORD-HRG5-3-2015-EXIT
178601     ELSE
178602     IF HHA-SERV-THRU-DATE < 20170101
178603        PERFORM 2475-RECODE-HRG5-3-2016
178604           THRU 2475-RECORD-HRG5-3-2016-EXIT
178605     END-IF.
178610
178700     PERFORM 2600-RECODE-HRG-POS4 THRU 2600-EXIT.
178800
178900 2475-EXIT.
179000     EXIT.
179010
179100 2475-RECODE-HRG5-3-2014.
179110
179120     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR
179130                               'E' OR 'F' OR 'G'
179140        MOVE 'A'     TO WORK-HRG2.
179150
179160     IF HHA-CLINICAL-SEV-EQ2 = 'H' OR
179170                               'I' OR 'J' OR 'K' OR 'L' OR
179180                               'M' OR 'N'
179190        MOVE 'B'     TO WORK-HRG2.
179191
179192     IF HHA-CLINICAL-SEV-EQ2 = 'O' OR 'P' OR 'Q' OR 'R' OR
179193                               'S' OR 'T' OR 'U' OR
179194                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
179195        MOVE 'C'     TO WORK-HRG2.
179196
179197     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR
179198                               'E' OR 'F'
179199        MOVE 'F'     TO WORK-HRG3.
179200
179201     IF HHA-FUNCTION-SEV-EQ2 = 'G'
179202        MOVE 'G'     TO WORK-HRG3.
179203
179204     IF HHA-FUNCTION-SEV-EQ2 =     'H' OR 'I' OR
179205                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
179206                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
179207                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
179208        MOVE 'H'     TO WORK-HRG3.
179209
179210
179211     IF HHA-REVENUE-SUM1-3-QTY-THR > 19
179212          MOVE 'K' TO WORK-HRG4.
179213
179220 2475-RECORD-HRG5-3-2014-EXIT.
179300     EXIT.
179400
179500 2475-RECODE-HRG5-3-2015.
179510
179520     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'
179530        MOVE 'A'     TO WORK-HRG2.
179540
179550     IF HHA-CLINICAL-SEV-EQ2 = 'E' OR 'F' OR 'G' OR 'H' OR
179560                               'I' OR 'J' OR 'K' OR 'L' OR
179570                               'M' OR 'N' OR 'O' OR 'P' OR
179580                               'Q'
179590        MOVE 'B'     TO WORK-HRG2.
179591
179592     IF HHA-CLINICAL-SEV-EQ2 = 'R' OR
179593                               'S' OR 'T' OR 'U' OR
179594                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
179595        MOVE 'C'     TO WORK-HRG2.
179596
179597     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C'
179598        MOVE 'F'     TO WORK-HRG3.
179599
179600     IF HHA-FUNCTION-SEV-EQ2 = 'D' OR
179601                               'E' OR 'F'
179602        MOVE 'G'     TO WORK-HRG3.
179603
179604     IF HHA-FUNCTION-SEV-EQ2 =     'G' OR 'H' OR 'I' OR
179605                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
179606                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
179607                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
179608        MOVE 'H'     TO WORK-HRG3.
179609
179610 2475-RECORD-HRG5-3-2015-EXIT.
179700     EXIT.
179800
179900 2475-RECODE-HRG5-3-2016.
179910
179920     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'
179930        MOVE 'A'     TO WORK-HRG2.
179940
179950     IF HHA-CLINICAL-SEV-EQ2 = 'E' OR 'F' OR 'G' OR 'H' OR
179960                               'I' OR 'J' OR 'K' OR 'L' OR
179970                               'M' OR 'N' OR 'O' OR 'P' OR
179980                               'Q'
179990        MOVE 'B'     TO WORK-HRG2.
179991
179992     IF HHA-CLINICAL-SEV-EQ2 = 'R' OR
179993                               'S' OR 'T' OR 'U' OR
179994                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
179995        MOVE 'C'     TO WORK-HRG2.
179996
179997     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C'
179998        MOVE 'F'     TO WORK-HRG3.
179999
180000     IF HHA-FUNCTION-SEV-EQ2 = 'D' OR
180001                               'E' OR 'F' OR 'G'
180002        MOVE 'G'     TO WORK-HRG3.
180003
180004     IF HHA-FUNCTION-SEV-EQ2 =  'H' OR 'I' OR
180005                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
180006                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
180007                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
180008        MOVE 'H'     TO WORK-HRG3.
180009
180010 2475-RECORD-HRG5-3-2016-EXIT.
180100     EXIT.
180200
180300 2480-RECODE-HRG5-4.
180310
180320     IF HHA-SERV-THRU-DATE < 20150101
180330        PERFORM 2480-RECODE-HRG5-4-2014
180340           THRU 2480-RECORD-HRG5-4-2014-EXIT
180350     ELSE
180360     IF HHA-SERV-THRU-DATE < 20160101
180370        PERFORM 2480-RECODE-HRG5-4-2015
180380           THRU 2480-RECORD-HRG5-4-2015-EXIT
180390     ELSE
180391     IF HHA-SERV-THRU-DATE < 20170101
180392        PERFORM 2480-RECODE-HRG5-4-2016
180393           THRU 2480-RECORD-HRG5-4-2016-EXIT
180394     END-IF.
187500
187600     PERFORM 2600-RECODE-HRG-POS4 THRU 2600-EXIT.
187700
187800 2480-EXIT.  EXIT.
187810
187900 2480-RECODE-HRG5-4-2014.
187910
187920     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR
187930                               'E' OR 'F' OR 'G'
187940        MOVE 'A'     TO WORK-HRG2.
187950
187960     IF HHA-CLINICAL-SEV-EQ4 = 'H' OR
187970                               'I' OR 'J' OR 'K' OR 'L' OR
187980                               'M' OR 'N'
187990        MOVE 'B'     TO WORK-HRG2.
187991
187992     IF HHA-CLINICAL-SEV-EQ4 = 'O' OR 'P' OR 'Q' OR 'R' OR
187993                               'S' OR 'T' OR 'U' OR
187994                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
187995        MOVE 'C'     TO WORK-HRG2.
187996
187997     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR
187998                               'E' OR 'F'
187999        MOVE 'F'     TO WORK-HRG3.
188000
188001     IF HHA-FUNCTION-SEV-EQ4 = 'G'
188002        MOVE 'G'     TO WORK-HRG3.
188003
188004     IF HHA-FUNCTION-SEV-EQ4 =     'H' OR 'I' OR
188005                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
188006                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
188007                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
188008        MOVE 'H'     TO WORK-HRG3.
188010
188011     IF HHA-REVENUE-SUM1-3-QTY-THR > 19
188012          MOVE 'K' TO WORK-HRG4.
188013
188020 2480-RECORD-HRG5-4-2014-EXIT.
188100     EXIT.
188200
188300 2480-RECODE-HRG5-4-2015.
188310
188320     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'
188330        MOVE 'A'     TO WORK-HRG2.
188340
188350     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR
188360                               'F' OR 'G' OR 'H' OR
188370                               'I' OR 'J' OR 'K' OR 'L' OR
188380                               'M' OR 'N' OR
188390                               'O' OR 'P' OR 'Q'
188391        MOVE 'B'     TO WORK-HRG2.
188392
188393     IF HHA-CLINICAL-SEV-EQ4 = 'R' OR
188394                               'S' OR 'T' OR 'U' OR
188395                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
188396        MOVE 'C'     TO WORK-HRG2.
188397
188398     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C'
188399        MOVE 'F'     TO WORK-HRG3.
188400
188401     IF HHA-FUNCTION-SEV-EQ4 = 'D' OR
188402                               'E' OR 'F'
188403        MOVE 'G'     TO WORK-HRG3.
188404
188405     IF HHA-FUNCTION-SEV-EQ4 =     'G' OR 'H' OR 'I' OR
188406                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
188407                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
188408                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
188409        MOVE 'H'     TO WORK-HRG3.
188410
188420 2480-RECORD-HRG5-4-2015-EXIT.
188500     EXIT.
188600
188700 2480-RECODE-HRG5-4-2016.
188710
188720     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'
188730        MOVE 'A'     TO WORK-HRG2.
188740
188750     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR
188760                               'F' OR 'G' OR 'H' OR
188770                               'I' OR 'J' OR 'K' OR 'L' OR
188780                               'M' OR 'N' OR
188790                               'O' OR 'P' OR 'Q'
188791        MOVE 'B'     TO WORK-HRG2.
188792
188793     IF HHA-CLINICAL-SEV-EQ4 = 'R' OR
188794                               'S' OR 'T' OR 'U' OR
188795                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
188796        MOVE 'C'     TO WORK-HRG2.
188797
188798     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C'
188799        MOVE 'F'     TO WORK-HRG3.
188800
188801     IF HHA-FUNCTION-SEV-EQ4 = 'D' OR
188802                               'E' OR 'F' OR 'G'
188803        MOVE 'G'     TO WORK-HRG3.
188804
188805     IF HHA-FUNCTION-SEV-EQ4 =  'H' OR 'I' OR
188806                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR
188807                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR
188808                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'
188809        MOVE 'H'     TO WORK-HRG3.
188810
188820 2480-RECORD-HRG5-4-2016-EXIT.
188900     EXIT.
189000
189100**----------------------------------------------------
189200*  HHA-WITH-DATA-CHECK  (0, 1)
189300*  HHA-NO-DATA-CHECK (2, 3)
189400*
189500*COL 1 TB-REV-DOLL-RATE-NRURAL
189600*COL 2 TB-REV-DOLL-RATE-RURAL
189700*COL 3 TB-DOLL-RATE-NRURAL-NOSUBMIT
189800*COL 4 TB-DOLL-RATE-RURAL-NOSUBMIT
189900*
190000*
190100*****        LAST STATEMENT               *************
